selam combox un ismi combo1 olsun.. ayrıca if then else yerine daha basit ve kullanışlı birşey yapacağım..

Private Sub Form_Load()
Combo1.AddItem "ASP"
Combo1.AddItem "PHP"

End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text

Case "ASP"
 Text1 = "12345"
 
 Case "PHP"
 
 Text1 = "123456"
 
 
End Select


End Sub

combox a birşeyler ekleyerek case i devam ettirebilirsin..