Dim i As Integer
Dim sData() As String
Dim f() As Form2

sData = Split(sKey, ",")
ReDim f(UBound(sData))
For i = 0 To UBound(sData)
    Set f(i) = New Form2
    f(i).Caption = sData(i)
    f(i).Show
Next