Moving the cursor to the top of a texbox: Return to List

  With Manage_Email_Frm2
  
    .txtEmailMsg.Text = MyItem.Body
  
    .txtEmailMsg.SetFocus
  
    .txtEmailMsg.SelStart = 0' This and next commands the main ones
  
    .txtEmailMsg.SelLength = 0
  
    .Show
  
    Exit Sub
  
End With