Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim preNum As String
Dim NumLen As Integer
NumLen = tbPhone.Text.Length
preNum = tbPhone.Text.Substring(0, 2)
If preNum = "08" And NumLen = 10 Then
'----
ElseIf preNum = "02" And NumLen = 9 Then
'----
Else
Alert.ShowMessage("Invalid Phone Number")
End If
End Sub