...utilizza una matrice di controlli(facendo copia e incolla del controllo), ovvero, nel tuo caso di textBox, dovrai solo cambiare il codice di riferimento alla text, aggiungendo text1(index).property

il tuo codice diventerebbe:
codice:
Private Sub txtnome_keypress(index as integer, keyascii As Integer) 
   If (TxtNome(index).Text = "") And (keyascii = 32) Then _
      keyascii = 0 
   IntDopo = keyascii 
   If (IntDopo = 32) And (IntPrima = 32) Then  _
      keyascii = 0 
   IntPrima = dopo 
End Sub
tutto kiaro...

ciao