Hola, si sos nuevo lo mejor es que te leas un manual de visual basic....pero para que te orientes seria algo asi...
    
Código vb:
Ver originalPrivate Sub Combo1_Click()
    Select Case Combo1.ListIndex
        Case 0
            Text1.Text = "40.914.000"
        Case 1
            Text1.Text = "16.928.873"
    End Select
End Sub
 
Private Sub Form_Load()
    With Combo1
        .AddItem "Argentina"
        .AddItem "Chile"
    End With
End Sub
  
pero leete un manual en serio... 
saludos.