[Shana Cole]

Create a user interface that the user can enter first name, middle initial and last name; when clicking the New button it will display the Full Name. This is my source code. When I compiled it, it says that Variable Not Defined. Please do help me with this. Your response(s) would be highly appreciated.

Option Explicit
Dim strFull As String


Private Sub cmdExit_Click()
Unload Me
End Sub

Private Function PCase(strVar As String) As String
PCase = UCase(Mid(strVar, 1, 1)) & LCase(Mid(strVar, 2, Len(strVar)))
End Function

Private Sub cmdNew_Click()
strFull = PCase(txtFirst.Text) & "" & _
        UCase(Mid(txtMiddle.Text, 1, 1)) & "" & _
        PCase(txtLast.Text)
lblFull.Caption = strFull
End Sub

Private Sub cmdReset_Click()
    txtFirst.Text = ""
    txtMiddle.Text = ""
    txtLast.Text = ""
    lblFull.Caption = ""
    txtFirst.SetFocus
End Sub

This post has been edited by Martyr2: 25 September 2011 - 09:44 AM
Reason for edit:: Please use code tags in the future, thanks! :)

[Martyr2]

No need to define strFull at the top, define it right in the cmdNew_click event. But other than that, I don't see any immediate problems. Which line is it telling you is undefined? Another tip is to use "ByVal" when it comes to defining arguments for a function... Private Function PCase(ByVal strVar as String).