Public gStrmoji() as string
Public gStrname as string
Public count as long

Public sub name()
　gStrname = Text1.Text

　For count = 1 To Len(gStrname)
　　ReDim Preserve gStrmoji(count)
　　gStrmoji(count) = Mid$(gStrname, count, 1)
　Next count

End Sub


Private Sub Text1_Change()
　name
End Sub