te puede quedar así tu code...
Cita: Dim A As Integer
Dim C As Integer
If TextBox1.Text = "" Then
MsgBox("DATO")
Else
A = CType(TextBox1.Text, Integer)
For B As Integer = 1 To 10
TextBox2.Text &= A & " x " & B & " = " & (A * B).ToString & Chr(13) & Chr(10)
Next
End If
Por cierto.. de una vez te mando al subforo de windows forms
movido desde subforo de visual basic
Salu2 y cualquier cosa por aqui andamos..