Sub btnSave_Click
Dim OK_Proceed As Boolean = False
Dim Result As Int
Dim strLocName As String
'validation checks on Airport Code and Length of Airport Name
'code
If common.Len(tbCode.Text) <> 4 Then
Result = Msgbox2Async("Please keep CODE to 4 characters exactly!", "Invalid Airport Code", "OK", "", "", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
tbCode.RequestFocus
End If
Else
OK_Proceed = True
End If