>>541
 Dim inp1 As Integer
Dim inp2 As Integer
Dim inp3 As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  inp1 = Label1.Text
inp2 = Val(TextBox1.Text)
inp3 = Val(inp1 - inp2)
inp1 = CStr(Int(Rnd() * 99))

ということで大丈夫ですか?