nån som vet varför denna kod helt plötsligt slutat funka:

Private Sub txtMain_SelChange()
intLn = 1 + (Len(Left(txtMain.Text, txtMain.SelStart)) - Len(replace(Left(txtMain.Text, txtMain.SelStart), vbCrLf, "x")))
intCh = Len(Left(txtMain.Text, txtMain.SelStart)) - InStrRev(Left(txtMain.Text, txtMain.SelStart), vbCrLf)
Status.Panels(2).Text = intLn & " : " & intCh
End Sub

Der är replace'e den klagar på wrong number of arguments säger det typ..
xtxMain är en RTB

Det har funkat tidigare, den bara la av

Tycker du har gjort det lite krånglit för dig. Varför inte använda inbygda funktioner och lite API anrop?

<code>
'Lägg kod i samma formulär. Eller i en modul om den skall användas av flera formulär.
Private Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function GetFirstCharFromLine(RichTextBox As RichTextBox, Optional Line As Long = -1) As Long
GetFirstCharFromLine = SendMessage(RichTextBox.hwnd, EM_LINEINDEX, Line, ByVal 0&)
End Function

'Form: Ditt formulär
Private Sub txtMain_SelChange()
Dim lngLn As Long
Dim lngCh As Long
lngLn = txtMain.GetLineFromChar(txtMain.SelStart)
lngCh = txtMain.SelStart - GetFirstCharFromLine(txtMain)
Status.Panels(2).Text = lngLn & " : " & lngCh
End Sub
</code>

Det var inte jag som gjort den koden, fick den här och den funkade ju - tills den helt plötsligt lutade funka det vill säga..

Tack för hjälpen ska testa det direkt!