Public Function DetectWaage() As Long
    Dim CurrentHandle As Long
    Dim CurrentMember As Integer
 
    For CurrentMember = 11 To 11
        CurrentHandle = CreateFile("COM" + Right(Str(CurrentMember), Len(Str( _
          CurrentMember)) - 1) + Chr(0), _
        GENERIC_READ Or GENERIC_WRITE, ByVal 0, ByVal 0, OPEN_EXISTING, _
        FILE_ATTRIBUTE_NORMAL, ByVal 0)
 
        'TODO Gerät erkennen
        '************
        If Not CurrentHandle = INVALID_HANDLE_VALUE Then
            Exit For
        End If
        '*************
    Next CurrentMember
 
    DetectWaage = CurrentHandle
End Function