Sorry I should have added my naming conventions in the file here it is....

Code:
'~~~~~Variable Naming Conventions~~~~~
'~Global Variables = VariableName; i.e. Public PlayerName as String
'~Global Constants = CONSTANT_NAME; i.e. Public Const PLAYER_NAME as String = "Teddy"
'~Module Level Variables = LCase(Left(VariableType, 3)) + VariableName; i.e. Private strPlayerName as String
'~Module Level Constants = CONSTANTNAME; i.e. Private Const PLAYERNAME as String = "Teddy"
'~Function Level Variables = LCase(Left(VariableType, 1)) + VariableName; i.e. Dim sPlayerName as String
'~Function Parameters = "p" + VariableName; i.e. Private Function SomeFunc(pPlayerName as String)
Thanks for the feedback guys keep it coming!