Comunicacion RS232en visual basic y usando ccs en un pic 16f877a

[gokesefa]

Mi problema es el siguiente, estoy haciendo un proyecto para la universidad y es la primera vez que trabajo con comunicacion serial, bueno, lo primero que hice fue crear un FORM en visual basic en el cual, de manera anticipada, se seleccionan 8 datos enteros, despues de seleccionar los 8 numeros, paso a querer enviar solamente el primer dato

Código: [Seleccionar]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "CONECTAR" Then
            SerialPort1.PortName = ComboBox1.Text
            Button1.Text = "DESCONECTAR"
            Try
                SerialPort1.Open()
            Catch ex As Exception
                MessageBox.Show("Puerto no valido")
                Return
            End Try
            SerialPort1.DiscardOutBuffer()
            SerialPort1.Write(freca)
           
        ElseIf Button1.Text = "DESCONECTAR" Then
            Button1.Text = "CONECTAR"
            SerialPort1.Close()
        End If
    End Sub
como ven, el primer y unico dato que envio es FRECA y tiene un valor fijo que es 30, al enviar por el puerto serie a mi simulacion en proteus quiero recibir el dato y mostrarlo por el LCD (para asegurarme que el dato que recibo es el correcto) entonces hago lo siguiente

Código: [Seleccionar]

lcd_putc("\f variables");
   prr=variables();
   printf(lcd_putc,"\n %3u ",prr);

char variables()
{
   freca=getc();
   return(freca);
}
El problema es que al enviar el dato 30, solo me muestra en el LCD el valor 3, alguna ayuda?