VB validate security code

[Charlie]

I am trying to code an app that will validate a user entered security code.
So far I havent got very far.
I am trying to use sub-procedures which are new to me.

Option Explicit

Private Sub BuildCode(pCodeEntered As String, pNumber As String)

End Sub

Private Sub cmdAddOne_Click()

'Output digit in picbox
picOutput.Print (1)
End Sub

Private Sub cmdAddTwo_Click()

'Output digit in picbox
picOutput.Print (2)
End Sub

Private Sub cmdAddThree_Click()

'Output digit in picbox
picOutput.Print (3)
End Sub

Private Sub cmdCheckCode_Click()
Dim pNumber As String
pNumber = 331221
If pNumber = pNumber Then
picOutput.Print "Access Granted"
ElseIf pNumber < pNumber > pNumber Then
picOutput.Print "Access Denied"
End If
End Sub

Private Sub cmdExit_Click()
'Terminate Application
End
End Sub

Private Sub Form_Load()
'Declare required storage
Dim CodeEntered As String




Show
CodeEntered = ""
Digits = 0
picOutput.Print "Enter a six digit number"
End Sub

Charlie

 

[Charlie]

The code I am using produces the same result whatever the input so the question of loops or GoTo's is irrelevant.
My copy of VB came down the pipe from Kazaa no help files were included unfortunately.
Thankyou for the advice.
Charlie