GetClipboardData

Sub test()
Dim tx As String, tx1 As String, tx2 As String
Dim scheinnummer As String
Dim i As Integer
Dim b As Byte
Dim hStrPtr As Long, lLength As Long, sBuffer As String
OpenClipboard FindWindow("XLMAIN", vbNullString)
hStrPtr = GetClipboardData(CF_TEXT)
If hStrPtr <> 0 Then
lLength = lstrlen(hStrPtr)
If lLength > 0 Then
sBuffer = Space$(lLength)
CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
End If
End If
CloseClipboard
scheinnummer = sBuffer
Wie kan ich GetClipboardData lehren nachdem ich den inhalt in meinem fall in die Vareable scheinnummer geladen habe?
Mein Code
ende:
End Sub