I need some help (i think I may have done something wrong here)
I have the following sub Function
Code: Select all
Private Sub DisplayText(TextToShow As String)
Select Case Global.TextBoxNumber
Case 1 ' User ID Number
If TextToShow <> "" Then
labUserID.Caption += TextToShow
Else
Me.labUserID.Caption += TextToShow
End If
Case 2 ' User Password
If TextToShow <> "" Then
Global.UserPassword += TextToShow
labPassword.Caption += TextToShow
Else
Global.UserPassword = Null
Me.labPassword.Caption += TextToShow
End If
End Select
End
What am i doing wrong here?