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?