Dim x As Integer x = 0 If x = 0 Then x = 1 message.Text = "hello world" ElseIf x = 1 Then message.Text = "WTF" End If