help with writing a function that returns only the initials of a name input in a textbox

[cc.caroline15]

Hi everyone,
I'm trying to write a code that when the user inputs their name for example John J Rodriguez and press the cmdInitials buttom will return only the initials in uppercase JJR. The code that I wrote gives me the following error: the expression on click you entered produce the following error: Procedure declaration doesn't match description on event or procedure having the same name. Also my other bottoms were working fine until I added this portion of the code, now it's giving me the same error for all.Can anyone help me?? I have attach the form please help me i'm new to coding. Thank you
240CCA04.zip

[orange]

Suggest you change your button click event to

Private Sub cmdInitials_Click()  'removed the parameter

'dim all your variables
    Dim i As Integer
    Dim strNames As Variant
    Dim strInput As String
    Dim strOutput As String  '<--had to Dim this
    strInput = Me.txtInput ' <---need to assign the value from the textbox
    strNames = Split(strInput, " ")

    For i = LBound(strNames) To UBound(strNames)
        strOutput = strOutput & UCase(Left(strNames(i), 1)) '<---changed input to output removed the trailing space
    Next i
   
lblOutPut.Caption = strOutput  '<---------------what is strOutput??
End Sub

You did not dim strOutput. You used strInput in the For loop

Note: I just got the initials button to do what I think you wanted.

[cc.caroline15]

Than you for helping me with my code Orange

[orange]

Happy to help.