Marcar con Skype

[asastrem]

Bueno la solución es la siguiente:

digo por si a alguien le intereza...

1.- al cargar la forma y al selecionar un boton lo direcciono

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
AddHandler Me.cmdTel1.Click, AddressOf LlamarLinea
AddHandler Me.cmdTel2.Click, AddressOf LlamarLinea
AddHandler Me.cmdTel3.Click, AddressOf LlamarLinea
End Sub

2.- en la parte 2 (en el entendido que ya di de alta el api de skype)
y tambien declare una variable para que tome el lugar del textbox correspondiente

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 (sender Is cmdSkypeLl) Then
varTextoTel = txtTel1.Text
ElseIf (sender Is cmdSkypeL2) Then
varTextoTel = txtCel.Text
ElseIf (sender Is cmdSkypeL3) Then
varTextoTel = txtTel2.Text
End If
If Not oSkype.Client.IsRunning Then
oSkype.Client.Start()
End If
oCall = oSkype.PlaceCall(varTextoTel)
oSkype.Client.OpenDialpadTab()
oSkype.Client.Focus()
oSkype.Mute = True

End Sub