hacker.org

Why doesn't this work?.

Private Sub Text1_Change()
IF (Message153.text = "Lol") THEN
MsgBox "Wow"
ElSEIF (Message153.text = "wow")
MsgBox "lol"
END IF
END Sub

Liidian wrote:Why doesn't this work?.

Private Sub Text1_Change()
IF (Message153.text = "Lol") THEN
MsgBox "Wow"
ElSEIF (Message153.text = "wow")
MsgBox "lol"
END IF
END Sub

is this the entire code? If so then you haven't declared the variable Message153.text. You need to give the variable a value before you can run a test on it like this. Try adding "Dim Message153.text as string = "Lol" before the If statement. And I may be wrong but i think you need to type MessageBox.show() not MsgBox

Private Sub Text1_Change()

Dim Message153.text as string = "Lol"

IF (Message153.text = "Lol") THEN
MessageBox.show("Wow")
ElSEIF (Message153.text = "wow")
MessageBox.show("lol")
END IF
END Sub

plope0726 wrote:

Liidian wrote:Why doesn't this work?.

Private Sub Text1_Change()
IF (Message153.text = "Lol") THEN
MsgBox "Wow"
ElSEIF (Message153.text = "wow")
MsgBox "lol"
END IF
END Sub

is this the entire code? If so then you haven't declared the variable Message153.text. You need to give the variable a value before you can run a test on it like this. Try adding "Dim Message153.text as string = "Lol" before the If statement. And I may be wrong but i think you need to type MessageBox.show() not MsgBox

Private Sub Text1_Change()

Dim Message153.text as string = "Lol"

IF (Message153.text = "Lol") THEN
MessageBox.show("Wow")
ElSEIF (Message153.text = "wow")
MessageBox.show("lol")
END IF
END Sub

KK Thanks ^^

Don't you need to start (and end) a class as well? (Or something to that effect, trying to remember)

yeah but I think that in VB the private sub / end sub is the start and end of the class.

Although its kinda 'cheating', you can try running that in VBExpress, it should tell you whats wrong with it.