Einfache suche und anschießend batch mit parameter

Liebe Experten,
Zu meiner Frage habe ich seit zwei Tagen recherchiert aber jedoch nichts lauffähiges zustande gebracht.
Ich versuche ein Makro zu basteln, dass über eine Userform die letzte ausgewählte Zeile identifiziert, Anschließend soll in der ersten Zeile gesucht werden in welcher Spalte sich "G3E_FNO" Und G3E_FID" befinden, da diese Zeilen in der Vorbearbeitung in unterschiedlichen Spalten stehen können. wenn FID und FNO Spalten ermittelt sind möchte ich den Wert von FID und FNO an eine Batch-Datei weitergeben.
Aktuell habe ich eine Userform aufgesetzt die Folgendermaßen aussieht:

Private Sub CommandButton1_Click()
'OK-Knopf
'Bisheriger code
'Zeilenvariable
Dim Row As Long
'Batchaufruf
Dim batch
'Ausgabestrings für die Parameter
Dim FNO_Text As String
Dim FID_Text As String
'Rangevariable zum Auslesen
Dim Spalte_FID As Range
Dim Spalte_FNO As Range
'Letzte ausgewählte zeile auswählen
Row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
'Finde FID & FNO in der ersten zeile
Set Spalte_FID = ActiveSheet.Rows(1).Find(what:="G3D_FID*", lookat:=xlWhole)
Set Spalte_FNO = ActiveSheet.Rows(1).Find(what:="G3D_FNO*", lookat:=xlWhole)
'Wähle die Zellen an Standort Row,Spalte_FID & Row,FNO_Spalte aus und verwandle den inhalt in  _
einen String
Set FID_Text = ActiveSheet.Range(Cells(Row, FID_Spalte.Column)).Select
Set FNO_Text = ActiveSheet.Range(Cells(Row, FNO_Spalte.Column)).Select
'Batchaufruf mit string parametern
batch = Shell("C:\beispiel.bat " & FID_Text & FNO_Text, 1)
'Fenster Schließen
Unload Me
End Sub