Attribute VB_Name = "modExamEntry"
Option Explicit

Global strRequestNum  As String
Global intEntryMode As Integer
Global dbConnection As New ADODB.Connection

Public Sub HighLightTB(myControl As TextBox)
    With myControl
            .SelStart = 0
            .SelLength = Len(.Text)
    End With
End Sub

Public Sub HighLightRTB(myControl As RichTextBox)
    With myControl
            .SelStart = 0
            .SelLength = Len(.Text)
    End With
End Sub