Module Hello
    Sub Main()
        Dim sName As String, i As Integer, loop_var As Integer
 
        i = InputBox$("Ποσα αρχεία επιθυμείς να ανοιξεις? : ", "Παράθυρο Διαλόγου")
 
        For loop_var = 0 To i - 1
            sName = InputBox$("Δώστε το ονομα(πλήρες path) του αρχείου : ", "Παράθυρο Διαλόγου")
            MsgBox("Άνοιγμα του αρχείου: " & sName)
            'Process.Start(sName)
            Shell(sName, AppWinStyle.NormalFocus)
 
        Next
    End Sub
End Module

TW9kdWxlIEhlbGxvCiAgICBTdWIgTWFpbigpCiAgICAgICAgRGltIHNOYW1lIEFzIFN0cmluZywgaSBBcyBJbnRlZ2VyLCBsb29wX3ZhciBBcyBJbnRlZ2VyCgogICAgICAgIGkgPSBJbnB1dEJveCQoIs6gzr/Pg86xIM6xz4HPh861zq/OsSDOtc+AzrnOuM+FzrzOtc6vz4Igzr3OsSDOsc69zr/Ouc6+zrXOuc+CPyA6ICIsICLOoM6xz4HOrM64z4XPgc6/IM6UzrnOsc67z4zOs86/z4UiKQoKICAgICAgICBGb3IgbG9vcF92YXIgPSAwIFRvIGkgLSAxCiAgICAgICAgICAgIHNOYW1lID0gSW5wdXRCb3gkKCLOlM+Oz4PPhM61IM+Ezr8gzr/Ovc6/zrzOsSjPgM67zq7Pgc61z4IgcGF0aCkgz4TOv8+FIM6xz4HPh861zq/Ov8+FIDogIiwgIs6gzrHPgc6szrjPhc+Bzr8gzpTOuc6xzrvPjM6zzr/PhSIpCiAgICAgICAgICAgIE1zZ0JveCgizobOvc6/zrnOs868zrEgz4TOv8+FIM6xz4HPh861zq/Ov8+FOiAiICYgc05hbWUpCiAgICAgICAgICAgICdQcm9jZXNzLlN0YXJ0KHNOYW1lKQogICAgICAgICAgICBTaGVsbChzTmFtZSwgQXBwV2luU3R5bGUuTm9ybWFsRm9jdXMpCgogICAgICAgIE5leHQKICAgIEVuZCBTdWIKRW5kIE1vZHVsZQ==