Marcar con Skype

[asastrem]

Buenas noches foro,
resulta que tengo un programita en visual basic 2008 y base de datos sql server 2005
tengo una cartera de clientes con todos sus datos
los datos mas importantes son: nombre, dirección y los teléfonos
en este caso tengo 3
TelCasa
TelCelular
TelTrabajo
la idea de todo esto es ponerles un boton con el icono de skype y realizar la llamada, ya me baje la api de skype
pero el problema que tengo es que segun el boton que presione marcara los datos de una caja de texto, para los botones tengo el siguiente procedimiento.

Private Sub frmContacto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Me.cmdSkypeLl.Click, AddressOf LlamarSkype
AddHandler Me.cmdSkypeL2.Click, AddressOf LlamarSkype
AddHandler Me.cmdSkypeL3.Click, AddressOf LlamarSkype
End Sub

segun el boton que presione me llamara el procedimiento "LlamarSkype"
el problema es implementar LlamarSkype

De la forma en que lo tengo, al presionar el primer boton "Llamar a casa del cliente" es la siguiente y funciona, pero el chiste seria nose quiza con un select case para que me seleccionara segun el boton la caja de texto a marcar

Private Sub LlamarSkype(ByVal sender As Object, ByVal e As System.EventArgs)
Dim oSkype As New SKYPE4COMLib.Skype
Dim oCall As New SKYPE4COMLib.Call
Dim oCon As New SKYPE4COMLib.Conference

If Not oSkype.Client.IsRunning Then
oSkype.Client.Start()
End If

oSkype.Client.OpenDialpadTab()
oSkype.Client.Focus()
oCall = oSkype.PlaceCall(txtTel1.Text)
oSkype.Mute = True

End Sub

¿alguna idea?