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