Thank you very much
It works perfect with a few tweaks, the "why" is, im trying to return one bit of information from the query to run a command based on that bit of information.
Here is what I ended up using
Dim s() As String
Dim l As Long
s = Split(ver1, vbCrLf)...