Module Globals


    Public Function Log(sEntry As String, Color As Color)

        frmMain.txtLog.SelectionColor = Color
        frmMain.txtLog.AppendText(vbCrLf & TimeValue(Now) & ": " & sEntry)


        Return True
    End Function


End Module