All pastes #269318 Raw Edit

Brett LV

public text v1 · immutable
·published 2006-12-06 13:58 UTC
rendered paste body
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