Public Sub Main()
Dim sStore As String

Shell "ls" To sStore
Print sStore

End