Tekstboks i Excel

Hej
Jeg har en boks der kan indsætte et tal, hvordan ændre jeg koderne så det er en tekst der kan indsættes? Det må gerne være en tekst, hvor jeg kan lave linjeskift, er det muligt eller er det bare wordwrap = true? Dette er noget genbrug og virker med tal
Private Sub UserTekstCMR_Click()   
    Dim dTal As Double
With txtIndtastBox
  If IsNumeric(.Text) = False Or Len(.Text) = 0 Then
      .Text = ""
      MsgBox "Det skal indtastes en tekst"
      .SetFocus
      Exit Sub
        Else
      dTal = CDbl(.Text)
        End If
    End With
    With Me
        If .txtIndtastBox = "" Then
            MsgBox "Du skal indtaste en tekst"
            .txtIndtastBox.SetFocus
            Exit Sub
        End If     
    End With
    Me.Hide
'  Indsæt data i regnearket
    Ark12.Select
    Range("E35").Select
    With ActiveCell
        .Offset(0, 0).Value = Me.txtIndtastBox
       
    End With
     
       
    Ark10.Select
       

End Sub