validation code needed

[supputuri]

Check if this is useful.

Code:

NegativeTest Dialog("Login").WinEdit("Agent Name:"),"^"
Public Function NegativeTest(objWebEdit,Input)
    If Input = " ~" Then
          'Logic to enter the data and validate the message
          objwebEdit.Set "~"
          msgbox "Input as ~"
    ElseIf Input = "^" Then
         'Logic to enter the data and validate the message
         objWebEdit.Set "^"
         msgbox "Input as ^"
    ElseIf Len(Input)<4 Then
         'Logic to enter the data and validate the message.
         objWebEdit.Set Input
         msgbox "Input less than 4 Charecters"
    Else
            msgbox "Please send the proper input."
    End If
End Function