Visa data beroende på vilken som är markerad

Jag har denna kod:

Private Sub Command1_Click()
Dim i As Integer

strApp = App.Path
If Right(strApp, 1) <> "\" Then
strApp = strApp & "\"
End If

If ListView1.SelectedItem Is Nothing Then Exit Sub
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Selected = True Then
ListView1.ListItems(i).Ghosted = True

Call frmMainLoadInfo

End If
Next i
End Sub

Jag vill alltså att när man har markerat en i listviewn och klickat på command1 ska den ladda frmMainLoadInfo:

Sub frmMainLoadInfo()
Dim itmX As ListItem
Dim f As Integer
Dim Hostname, Password, MaxPlayers, Map, LevelRotation, WinLimit, RoundLimit, RoundTime, FreezeTime, BuyTime, StartMoney As String
Dim strFilNamn

strFilNamn = Dir(App.Path + "\s_*", vbNormal)

strApp = App.Path

f = FreeFile

Where

Open App.Path + "\" + strFilNamn For Input As f
Do While Not EOF(f)
Input #f, Hostname, Password, MaxPlayers, Map, LevelRotation, WinLimit, RoundLimit, RoundTime, FreezeTime, BuyTime, StartMoney

frmMain.lblHostname = "&Host name: " & Hostname
frmMain.lblPassword = "&Password: " & Password
frmMain.lblMaxPlayers = "&Max players: " & MaxPlayers
frmMain.lblMap = "&Map: " & Map
frmMain.lblLevelRotation = "&Level rotation: " & LevelRotation
frmMain.lblWinLimit = "&Win limit: " & WinLimit
frmMain.lblRoundLimit = "&Round limit: " & RoundLimit
frmMain.lblRoundTime = "&Round time: " & RoundTime
frmMain.lblFreezeTime = "&Freeze time: " & FreezeTime
frmMain.lblBuyTime = "&Buy time: " & BuyTime
frmMain.lblStartMoney = "&Start money: " & StartMoney

Loop

Close f
End Sub

Men jag vet inte hur jag ska göra så att den öppnar rätt fil.
Fast en bra grej för er som kan fixa det är ju att Hostname är det efter s_.
Så alla filer i mappen heter såhär i början: s_ och sedan en variabel HostName. Någon som har förslag?