Private Sub cmdDoInitials_Click()
    Dim i As Integer
    Dim arrName() As String
    Dim strInitials As String
    arrName = Split(txtName.Text, " ")
    For i = 0 To UBound(arrName)
        strInitials = strInitials + Mid(arrName(i), 1, 1)
    Next
    MsgBox strInitials
End Sub