Module Hello
    Sub Main()
        Dim sName As String, i As Integer

        i = InputBox$("Ποσα αρχεία επιθυμείς να ανοιξεις? : ", "Παράθυρο Διαλόγου")

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