初学者求助 字符串 根据大写进行分割问题

我手头有一个字符串
Please select the server. AlpsEldoradoZeusNeptuneSaturnCaspianMercury------------------------MarsMayaAztecaMenaArgosVenusUranusPlutoHeraGaiaEosPhoenixAresIrisTitanApolloHeliosMalazgirtPetraTigrisAralPoseidonHerculesOdinPacificAlexanderPersiaOlympusTibetBabelRedSeaRomeSpartaXianAegeTroyAthensOasisVeniceGreece
我需要吧红字部分 按照首字母大写 分别分割出来
最后得到如
A(0) =Alps  
A(1)=Eldorado
A(2)=Zeus
A(3)=Neptune
A(4)=Saturn
A(5)=Caspian
A(6)=Mercury

目前我已经能单独分割出
AlpsEldoradoZeusNeptuneSaturnCaspianMercury
了
但是根据 判断大小写进行分割完全没有头绪 请教大家。。。这么进一步分割

知道万能的正则吗？
'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
VB code

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object

    strData = "AlpsEldoradoZeusNeptuneSaturnCaspianMercury"

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = False
    reg.MultiLine = True
    reg.Pattern = "[A-Z][a-z]+"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        Debug.Print match.Value
    Next
End Sub

1.Alps
2.Eldorado
3.Zeus
4.Neptune
5.Saturn
6.Caspian
7.Mercury

能用了非常感谢！！ 自学中完全没接触过正则表达式。。。。
帮我大忙了^^