Dim expectedSvcName As String = "FooBar"
Dim addrS As String = "001122334455"
Dim commonClass As Guid = BluetoothService.SerialPort ' e.g
Dim addr As BluetoothAddress = BluetoothAddress.Parse(addrS)
'
Dim bdi As New BluetoothDeviceInfo(addr)
Dim rcdList() As ServiceRecord = bdi.GetServiceRecords(commonClass)
Dim curSvcName As String
Dim portInteger As Integer = -1
For Each record As ServiceRecord In rcdList
  portInteger = ServiceRecordHelper.GetRfcommChannelNumber(record)
  Try
    curSvcName = record.GetPrimaryMultiLanguageStringAttributeById( _
      UniversalAttributeId.ServiceName)
  Catch ex As KeyNotFoundException ' No ServiceName attribute
    Continue For
  End Try
  Debug.Assert(curSvcName IsNot Nothing, "null ServiceName!?")
  If expectedSvcName.Equals(curSvcName, StringComparison.InvariantCulture) Then
    If portInteger = -1 Then
      Throw New InvalidOperationException("Selected Service is not RFCOMM")
    End If
    Exit For ' Success!
  End If
Next
If portInteger = -1 Then
  Throw New InvalidOperationException("No Service found with the ServiceName")
End If
Dim port As Byte = CByte(portInteger) ' convert to byte now we know that it's valid
Dim rep As New BluetoothEndPoint(addr, BluetoothService.Empty, port)
Dim cli As New BluetoothClient()
cli.Connect(rep)
... ...