Kodunuz şu şekilde olunca sanırım istediğinizi karşılıyor.
Kod:
Private Sub Açılan_Kutu17_Click()
If Metin36 > "5399999999" And Metin36 < "5500000000" Then
If Açılan_Kutu17 = "Vodafone" Then
Metin83.Value = "DIP"
Else
Metin83.Value = ""
End If
Else
Metin83.Value = ""
End If
End Sub