イミディエイトウィンドウの文字化け．．

プログラムが実際にどう動いているのかトレースする為に
下記の様なプロシージャを作り
Sub TraceLog(ByVal strName As String)
Debug.WriteLine(Now.ToString("HH:mm:ss @ " & strName))
End Sub

で、各プロシージャの頭に
TraceLog("TextBox3_GotFocus")
とか
TraceLog("fmClear")
こんな感じでプロシージャ名を追加してみたんですが．．．

イミディエイトウィンドウ中で下記の様に文字化けするです。
10:18:11 @ Ti18er1_Tick
10:18:11 @ or181_+09:00e97own
10:18:11 @ 11a午uei
10:18:12 @ Ge午Da午eTex午
10:18:14 @ PreV_o00
10:18:14 @ Tex午Box3_Go午ocu14

なーんとなく意味は判る様な文字化けなんですが
これってどうやって直したら良いんでしょうか？