Classes

Can anyone please explain why I get an error when I try to call methods or properties on the following:

MODULE Code

Sub CreateBankAccount()

Dim BankAcount As clsBankAccount
Set BankAccount = New clsBankAccount

Debug.Print BankAcount.BankBalance 'I get the error here

End Sub

CLASS MODULE clsBankAccount DEFINITION:

Private mdBankBalance As Double

Public Property Get BankBalance() As Double
    Set BankBalance = mdBankBalance
End Property

Many thanks in advance
Ben