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