[RESOLVED] VB6.0: I'm confused, need syntax help

[Tontow]

Dim MyReturn() As String
ReDim Preserve MyReturn(0, 1) As String

ReDim Preserve MyReturn((UBound(MyReturn(), 1) + 1), 1) As String

This is giveing me a 'subscript out of range' error on the red line. What Is the correct way of doing it?