Slet segment af streng.

look at the replace function

and the right or Mid fucntions

strStreng = "TEST_MIT_NAVN"
arrStreng = Split(strStreng, "_")

strStreng = arrStreng(1) & " " & arrStreng(2)

//>Rune

->Rune    .. Jeg er ikke så skarp i det her VBA. Hvorledes skal arrStreng erklæres for at det kommer til at virke det kode stykke du har skrevet?

'------------------------------- Form1 -------------------------------
Option Explicit

Public Function UnderTilMellem(ByVal strTekst As String) As String
Dim i As Integer
Dim strOne As String
Dim strOut As String
  For i = 1 To Len(strTekst)
    strOne = Mid$(strTekst, i, 1)
    Select Case strOne
          Case "_"
            strOut = strOut & " "
          Case Else
            strOut = strOut & strOne
    End Select
  Next i
UnderTilMellem = strOut
End Function

Private Sub Form_Load()
Dim strTekst As String
  strTekst = Mid$(" TEST_MIT_NAVN", 7)    '= MIT_NAVN

  'i VB5
  Me.Caption = UnderTilMellem(strTekst)    '= MIT NAVN

  'eller i VB6
  'Me.Caption = Replace(strTekst, "_", " ") '= MIT NAVN
End Sub
'------------------------------- Form1 -------------------------------

I deler pointene medions og sjh