フォーム上で、文字を一字ずつ表示させる

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'--------------------------------------------------------------
Sub kaisi_no_syori()
Dim w_takasa As Double
Dim w_haba As Double
Dim ver_no As String
Dim k As Long
Dim Wkpath As String
Dim i As Long, j As Long
Dim moji As String

'　mojiに代入された言葉が表示される。
moji = "This VBA ,MRECx.xls is maked by H・A・R・T Kanagawa for HONDA'S riders.(^o^) "
j = Len(moji)
For i = 1 To j
DoEvents
UserForm1.Label2.Caption = Left(moji, i)
Sleep (70)
Next i

Beep
Sleep (800)
'　userform1に、label2を作成しておくこと。label2の幅は、表示文字列mojiが収まる長さにしておくこと。