Private Type PD
   Name As String
   Edad As Byte
   Direccion As String
End Type
 
Dim DatosPersona() As PD

cuenta1
cuenta2
cuenta3

function getConnectionWithAccessToken($consumerkey, $consumersecret, $oauthtoken, $oauthtokensecet) {
     $connection = new TwitterOAuth($consumerkey, $consumersecret, $oauthtoken, $oauthtokensecet);
     return $connection;
}

Option Explicit
 
Public Static Function TextBetweenWords$(ByRef sText$, ByVal sWord1$, ByVal sWord2$)
Dim lPos1&, lPos2&, lStart&
    If LenB(sText) Then
        lPos1 = InStrB(1, sText, sWord1, vbBinaryCompare)
        If lPos1 Then
            lStart = lPos1 + LenB(sWord1)
            lPos2 = InStrB(lStart, sText, sWord2, vbBinaryCompare)
            If lPos2 Then
                TextBetweenWords = MidB$(sText, lStart, lPos2 - lStart)
            End If
        End If
    End If
End Function
 
 
Private Sub Form_Load()
    Debug.Print TextBetweenWords("qwertysdfcv [raul338 es feo] prueba", "[", "]")
End Sub

raul338 es feo

\[([^\[]+)\]