Serial Communications and same code

[vbnm]

hi all unfortunately, i have more than one qusetion 1- see the next code :

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim t As Double

t = temperature(1)

label_temperature_outside.Text = VB6.Format(t, "#0.0" & "°C")


End Sub

how can change this code from vb6 to .net specially the following code
VB6.Format(t, "#0.0" & "°C")

2-

Private Function SDA_value() As Integer

SDA_value = MSComm1.CTSHolding 'determine the status of an external device'
End Function

-how can i change the up code to .net specially the following code MSComm1.CTSHolding
any one help me please :confused: