Sub LerArray() 'Variave que vair receber os valores Dim Lidos As String = Nothing 'Variave de array com os elemento que serão lidos Dim Valores As Object() = New Object() {"Primeiro Nome", "Segundo Nome", "Terceiro Nome"} 'Variave contadora para pegar os elementos Dim Cont As Long = 0 'Inicia a contagem For Cont = 0 To UBound(Valores)
Lidos &= Valores(Cont) & vbCrLf
Next
End Sub
Não sou conecedor de PHP por isto não entendi muito bem o que você quer
Bom dia Mestre
Isto ficaria mais ou menos assim
Sub LerArray()
'Variave que vair receber os valores
Dim Lidos As String = Nothing
'Variave de array com os elemento que serão lidos
Dim Valores As Object() = New Object() {"Primeiro Nome", "Segundo Nome", "Terceiro Nome"}
'Variave contadora para pegar os elementos
Dim Cont As Long = 0
'Inicia a contagem
For Cont = 0 To UBound(Valores)
Lidos &= Valores(Cont) & vbCrLf
Next
End Sub
Não sou conecedor de PHP por isto não entendi muito bem o que você quer
T+