Test N° de Tel

Bjr mes Amis du Forum ,
Je cherche a verifier que lors d'une saisie d'un N° de portable il commence par 06 . J'ai ecris cela ss succes. Peut être avez vous la solution mais je n'en doute pas. Voila le code ecris , pourquoi ne fonctionne t'il pas ???
' FORMATAGE du N° de GSM
'
Dim NumGsm As String
NumGsm = GSM.Text
DebNum = Mid("NumGsm", 1, 2)
If DebNum <> "06" Then
MsgBox ("LE N° D'UN PORTABLE COMMENCE PAR 06")
Else
Select Case Len(NumGsm)
Case 2, 5, 8, 11
NumGsm = NumGsm & "."
End Select
GSM.Text = NumGsm
'
End If
et si je commence a entrer le N° des la frappe du zero il m'affiche ma TB

Salut et merci Bon WE ; GDS35