The Weird and The Wonderful

Private Sub LoadGrid()
    Dim SQL As String
    Dim x As Long
    Dim rst As New ADODB.Recordset
    
    txtMode.Text = mode
    txtPID.Text = PID
    txtPolTypeID.Text = policytypeid

    ' This pattern is used everywhere, even when, as here, the value is guaranteed to be a string.
    x = Val("" & txtPID.Text)           
End Sub

' Module-level variables
Dim FirstTime As Boolean
Dim FirstTime2 As Boolean

' ... and in some event handler

If FirstTime =  False Then
    If FirstTime2 = False Then
        ' ...
    End If
End If

public static class Extensions
{
    public static void SetProperty(this object domainEntity, string propertyName, object value)
    {
        var t = domainEntity.GetType();
        var p = t.GetProperty(propertyName, System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.NonPublic);
        p.SetValue(domainEntity, value);
    }
    public static void SetProperty<T, TProp>(this T domainEntity, Expression<Func<T, TProp>> getP, TProp value)
    {
        var e = (MemberExpression)getP.Body;
        SetProperty(domainEntity, e.Member.Name, value);
    }
}