OK, da. Prøv dette (helt utestet).
Sub Main(Byval input as Object)
Dim speakThis as String = hs.ReplaceVariables(input.ToString.Split("#")(0))
Dim filename as String = input.ToString.Split("#")(1)
Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1"
Dim localFile as String = hs.GetAppPath & "\" & filename & ".mp3"
My.Computer.Network.DownloadFile(remoteFile, localFile, "", "", False, 3000, True)
End Sub
Parameter er nå "hva_som_skal_sies#filnavn_uten_filendelse". Dvs. en firkant (#) mellom det som skal sies og filnavnet.