[Hilfe!] VBS - Ausgabe in msgbox

Dim Cn
Dim Rs
Dim Db
Dim DbSplit
Dim arrDb()
Const adClipString = 2
Set Cn = Wscript.createObject("ADODB.Connection")
Set Rs = Wscript.createObject("ADODB.Recordset")

Dim String_Datenbanken

with Cn
'Provider zuweisen
.Provider = "SQLOLEDB.1"
'ConnectionString übergeben
.ConnectionString="Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=XXX;Data Source=XXX"
'Connection öffnen
.Open
End with

With Rs
.Open "SELECT name FROM sys.databases ", Cn
End With

String_Datenbanken = Rs.GetString(adClipString,,,VBCRLF )

Db = split(String_Datenbanken,VBCRLF)

Redim arrDb(Ubound(Db))

For i = 0 TO Ubound(Db)
DbSplit = split(Db(i))
arrDb(i) = DbSplit(0)
Next

For Each value in arrDb
MsgBox value
next

Cn.close