Si hai ragione, si può fare di tutto e di più, grazie anche ai tuoi "MATTONCINI".
per il momento l'ho gestita così, ma sto cercando un modo per dirgli che se il selected.item inizia per una lettera che è uguale ad una lettera dell'alfabeto, allora la Starttfolder sarà la lettera corrispondente +":\"

If FilesListBox.SelectedItem.ToString.StartsWith("C") Then
Dim Startfolder As String = "C:\"
Dim Targetfolder As String = My.Computer.FileSystem.CurrentDirectory & "\Software\"
Dim Finalfolder As String = Replace(FilesListBox.SelectedItem, Startfolder, Targetfolder)
MsgBox("The file has been moved to:" & vbCrLf & Finalfolder.ToString)
Call Copy(FilesListBox.SelectedItem, Finalfolder) ' copy all text files In a folder

ElseIf FilesListBox.SelectedItem.ToString.StartsWith("D") Then
Dim Startfolder As String = "D:\"
Dim Targetfolder As String = My.Computer.FileSystem.CurrentDirectory & "\Software\"
Dim Finalfolder As String = Replace(FilesListBox.SelectedItem, Startfolder, Targetfolder)
MsgBox("The file has been moved to:" & vbCrLf & Finalfolder.ToString)
Call Copy(FilesListBox.SelectedItem.ToString, Finalfolder) ' copy all text files In a folder

per ora mi sono limitato alle lettere di unità più comuni..