Attribute VB_Name = "mdlLogs"
Public Function LogEncryptedServerData(data As String)
' Go to the end of the textbox.
frmPacketDebug.txtEncrypted.SelStart = Len(frmPacketDebug.txtEncrypted.Text)
' Add the data to the bottom.
frmPacketDebug.txtEncrypted.SelText = data & vbCrLf & "-----" & vbCrLf
End Function

Public Function LogClientData(data As String)
' Go to the end of the textbox.
frmPacketDebug.txtClient.SelStart = Len(frmPacketDebug.txtClient.Text)
' Add the data to the bottom.
frmPacketDebug.txtClient.SelText = data & vbCrLf & "-----" & vbCrLf
End Function

Public Function LogDecryptedServerData(data As String)
' End of Textbox
frmPacketDebug.txtDecrypted.SelStart = Len(frmPacketDebug.txtDecrypted.Text)
' Add to Bottom
frmPacketDebug.txtDecrypted.SelText = data & vbCrLf & "-----" & vbCrLf
End Function