Private Sub cmddone_Click()
    Unload Me
End Sub

Private Sub cmdgo_Click()
    Dim strFirst As String, strLast As String, strInitals As String
    
    strFirst = txtname.Text
    strInitals = Left(strFirst, 1)
    strLast = InStr(1, strFirst, " ") + 1
    strInitals = strInitals & Mid(strFirst, strLast, 1)
    lblinitals.Caption = UCase(strInitals)
    
End Sub