Hur gör jag ex en textruta där det står " 1000,00kr" när man sen klickar i textrutan så skall kr försvinna och man kan ange en summa. När man sen klickar utanför så skall den nya summan plus "kr" dyka upp.

Ett enkelt sätt att lösa det på:
Option Explicit

Private Sub Text1_GotFocus()
If Len(Text1.Text) > 0 Then
Text1.Text = Left(Text1.Text, InStr(1, Text1.Text, " Kr", vbTextCompare) - 1)
End If
SendKeys "{END}"
End Sub

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "00.00 Kr")
End Sub


/peterh