Dim ax,y As Integer
Private Sub Command1_Click()
x = Text1.Text
If x > 0 Then
y = 4 * x + 1
Else:y = 3 * x + 1
End If
Text2.Text = y
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub