Ciao
L'errore sta nel file Module1: nelle inizializzazioni delle variabili globali usi scrivimese, che in teoria dovrebbe essere un metodo, ma che hai definito come come variabile. Questo fa sì che scrivimese valga Nothing e quando tenti di accedere a scrivimese(DateTime.Now.Month) viene generata l'eccezione (si cerca di accedere ad un carattere della stringa che però non è inizializzata)
Risolvi tutto cambiando scrivimese in una Function che ritorni il valore desiderato:
Public Function scrivimese(ByVal monthIndex As Integer) As String
Return New DateTime(2000, monthIndex, 1).ToString("MMMM")
End Function
Luca