Setting Focus of Cursor in Textbox in Between Specific Lines

[JarekM]

Hi,

I have a textbox where whenever I click to write an email, the cursor shows up below the word "regards", but I want the cursor to show up in between the words "regards" and "Dear Sir".

Here's a screenshot of the textbox:

[/URL][/IMG]





Here is the code that I used as well:

_Subject = "Invoice: " + frmcustomer.lstCustomer.column(0) & " of " + frmcustomer.lstCustomer.column(4)
weiter:

    If cboTitleSalutation = "Mr" Then
        frmEmail.txt_EMessage.Value = "Dear Sir " & Me.txt_name & "," & vbLf & vbLf & vbLf & vbLf & "Regards " & vbLf & Sheets("Setup").Range("C55")
        frmEmail.txt_EMessage.SetFocus
    ElseIf cboTitleSalutation = "Mrs" Then
        frmEmail.txt_EMessage.Value = "Dear Mrs " & txt_name & "," & vbLf & vbLf
        frmEmail.txt_EMessage.SetFocus
    Else
        frmEmail.txt_EMessage.Value = "Dear Sir or Madam, " & vbLf & vbLf
        frmEmail.txt_EMessage.SetFocus
    End If

    frmEmail.txt_TO.Value = frmcustomer.txt_Email.Value
    frmEmail.Show
End Sub

Is there a way to fix this?
If so, then thanks.

 

[Norie]

Try this.

Dim lngStartPos As Long


    If cboTitleSalutation = "Mr" Then
        frmEmail.txt_EMessage.Value = "Dear Sir " & Me.txt_name & "," & vbLf & vbLf & vbLf
    ElseIf cboTitleSalutation = "Mrs" Then
        frmEmail.txt_EMessage.Value = "Dear Mrs " & txt_name & "," & vbLf & vbLf
    Else
        frmEmail.txt_EMessage.Value = "Dear Sir or Madam, " & vbLf & vbLf
    End If


    lngStartPos = Len(frmEmail.txt_EMessage.Text)+1

    frmEmail.txt_EMessage.Value = frmEmail.txt_EMessage.Value & vbLf & vbLf & "Regards " & vbLf & Sheets("Setup").Range("C55")

    frmEmail.txt_EMessage.SetFocus

    frmemail.txt_EMessage.SelStart = lngStartPos

 

[JarekM]

Thanks for t help, but we are not quite there yet.

As you can see, in the screenshot below, you have managed to put the cursor in between the letters "g" and the "a" in "regards". I would like to have the cursor where the second arrow is pointing.

[/URL][/IMG]

Thanks in advance.

 

[Norie]

Try changing this,

    lngStartPos = Len(frmEmail.txt_EMessage.Text)+1

to this.

    lngStartPos = Len(frmEmail.txt_EMessage.Text)-3

If that doesn't work you'll probably need to keep playing about with incrementing/decrementing the value of lngStartPos to get it as you want it.

 

[JarekM]

Hi Norie,

Your code has solved the issue!
Thank you for helping me.

Kind regards,
Jarek.