tabla de multiplicar con FOR NEXT

Dim t, i As Integer
Labeltabla.Caption = ""


t = Val(Text1.Text)

For i = 1 To 10

    Labeltabla = Labeltabla & t & " * " & i & " = " & t * i & vbCrLf

Next i