フォーム上でログ表示したい

'formにListBoxを用意して、Moduleに以下を追加

Private Sub LogAdd(s As String)

If s = "" Then Exit Sub

With UserForm1.LstBox_Log
.AddItem s
.ListIndex = .ListCount - 1 '最後尾を選択
.Selected(.ListCount - 1) = False '選択解除
End With
DoEvents

End Sub


'使い方
Call LogAdd("処理を開始しました")

'フォーム上でのログクリア例
Me.LstBox_Log.Clear