VBA.Split

Du kan lave din egen funktion til dette:

Publc Function Fjern(strTekst As String, strBogstav As String) As String
  Dim i As Integer
  For i = 1 to Len(strTekst)
    If Mid(strTekst, i, 1)<>strBogstav Then
      Fjern = Fjern & strBogstav
    End If
  Next
End Function

Denne funktion kan så kaldes ved:

data = \"allan\"
data = Fjern(data, \"a\")

hvorefter data er lig med \"lln\"

ja, jeg kan godt se at din fukciton virker, men det har ligesom ikke noget at gøre med VBA.SPLIT

Hvis du læser om split så returnere den et array, skal du have en streng hvor Aerne er fjernet brug nederste eks.
Skal det absolut være med split så er det øverste eks.

streng = \"DATA\"
\' Fjern Aer med split, join og fjerne mellemrum med replace
MsgBox Replace(Join(Split(streng, \"A\")), \" \", \"\")
\' Fjerne Aer med replace A med intet
MsgBox Replace(streng, \"A\", \"\")

Jeg håber ikke jeg har misforstået dit spørsmål

Jge kan godt se hvad i mener, men jeg har ser nogle bruge fukction med CBA, og den så meget nem ud, og det er den som jeg leder efter.

dim data() as string

data = vba.split(\"hej=dig\",\"=\")
msgbox(data(0))  \'hej
msgbox(data(1))  \'Dig

denne code virker hvis det er det du ikke kan få til at virker.

Dim data As String, tmpstr() As String
data = \"allan\"
tmpstr() = VBA.Split(data, \"a\")
data = \"\"
For n = 0 To UBound(tmpstr())
    data = data & tmpstr(n)
Next n
MsgBox data

Krismort>>

Ja, din kode fungere, så du er den retmessige ejer af de 15 p.