<CODE>
Globals
Dim k(3) As String
Dim s(1) As String
...
sTest(k,s)
EditText2.Text=k(1) & " " & k(0) 'Result = 1 2
EditText1.Text =s(0) ' Result = App
...
Sub sTest(a() As String, x() As String)
a(1)="1"
a(0)="2"
x(0)="App"
End Sub
</CODE>
'BUT why not
<CODE>
Globals
Dim k(3) As String
Dim s As String
...
sTest(k,s)
EditText2.Text=k(1) & " " & k(0) 'Result = 1 2
EditText1.Text =s ' Result = Blank
...
Sub sTest(a() As String, x As String)
a(1)="1"
a(0)="2"
x="App"
End Sub
</CODE>
Globals
Dim k(3) As String
Dim s(1) As String
...
sTest(k,s)
EditText2.Text=k(1) & " " & k(0) 'Result = 1 2
EditText1.Text =s(0) ' Result = App
...
Sub sTest(a() As String, x() As String)
a(1)="1"
a(0)="2"
x(0)="App"
End Sub
</CODE>
'BUT why not
<CODE>
Globals
Dim k(3) As String
Dim s As String
...
sTest(k,s)
EditText2.Text=k(1) & " " & k(0) 'Result = 1 2
EditText1.Text =s ' Result = Blank
...
Sub sTest(a() As String, x As String)
a(1)="1"
a(0)="2"
x="App"
End Sub
</CODE>