The only way I know of is awkward:
'check for empty return
Dim count As Integer = (From s In myEntity.employee Where employeeID = myEmployeeIDVariable).Count
'If there is a record, then process
If count > 0 Then
Dim r = (From s In myEntity.employee Where employeeID = myEmployeeIDVariable).First()
. . . do stuff . . .
End If