Great!

The way to calculate the SPBRG is in the datasheet. section 12.1 table 12-1

I set BRGH=1 in the TXSTA value so you use

BaudRate=Fosc/(16(x+1))

few math mods later you get
X=(Fosc/(BaudRate*16))-1

now you can easily do you own VB calculator for that