Visual basic msgbox yardım

Merhabalar arkadaşlar

   
 Private Sub Command1_Click()
    Dim a, b, sonuc As Integer
        For a = 1 To 10
            For b = 1 To 10
                sonuc = a * b
                MsgBox (a & " x " & b & "" & "= " & sonuc)
            Next
        Next
    End Sub

Butona tıklayınca çarpım tablosunu listelemem gerekiyor yukarıdaki kod ile mümkün kıldım. Lakin msgbox kutusunda hepsi listelenmeli alt alta, bu yaptığım kod ile sadece 1 tane görünüyor tamam dedikçe devamı geliyor 1x1=1 enter 1x2=2 şeklinde enterledikçe 10 a kadar devam ediyor.

Ben isityorum ki msg box da hepsi alt alta sıralansın

1x1=1
1x2=2
.
.
.
10x10=100

şeklinde nasıl mümkün kılabilirim?

tüm çıktıyı bir stringe atayın. her sonuçtan sonra da stringinize "\n" ekleyin. bilmiyorum vb6 dili \n i alt satıra geçmek olarak görecek mi?..

\n olmazsa VbCrLf komutunu deneyin her sonucu bir stringe atadıktan sonra.

sanırım olmadı hocam yada ben yapamadım

For a = 1 To 10
    For b = 1 To 10
        sonuc = a * b
		cikti=cikti & vbcrlf & a & " x " & b & "" & "= " & sonuc
    Next
Next
MsgBox (cikti)

Oldu hocam çok teşekkür ederim

Rica ederim yardımcı olduysa ne mutlu