Write a program to print each letter

Dim MyString
MyString = "Vinodh test !"
For i = 1 To 999 Step 1
MyStrReturn = Left(MyString, i)
MsgBox MyStrReturn
MyStrlen = Len(MyString)
'MsgBox MyStrlen
If (i = MyStrlen) Then
Exit For
End If
Next