Sline = Str$(newpointx) & " " & Str$(newpointx) & " " & Resto

 NewpointStX = Format(newpointx, "-##.#####")
 Sline = Str$(newpointStX) & " " & Str$(newpointx) & " " & Resto

Dim aa As String[]
Dim escludi As String
Dim esclusivo As Integer
Dim Sline as String

' per esempio  Sline = "14.6504 31.8927 14.3198 153 155 152"

  
     a = Replace(Sline, "\n", " ")
     aa = Split(a, " ", "", True)
     escludi = aa[1]
     esclusivo = Val(escludi)
                             |Type mismatch: wanted Integer got Null instead in FMain:295|
' mi servirebbe estrarre 31.8927 e farci un calcolo

// il seguente codice deriva da quello scritto da fsurfing

  int i = 0;
  int inByte = 0;
  
  int passi=0;
  int tempo_h=0;
  int tempo_l=0;
  int direzione=0;
  
  String ricevuto="";
  boolean completo= false;
      
  
  
  void setup() 
  {
    // pin2 per gli step pin3 per direzione
     pinMode( 2, OUTPUT);
     pinMode( 3, OUTPUT);
                
    
    Serial.begin(19200);
    ricevuto.reserve(100);
   
    
  }
  
  void loop(){
           

        if (completo==true) {
        // estraiamo i dati dalla stringa che abbiamo passato
        passi=(ricevuto.substring(0,4).toInt());
        tempo_h=(ricevuto.substring(5,8).toInt());
        tempo_l=(ricevuto.substring(9,12).toInt());
        direzione=(ricevuto.substring(12).toInt());

       // diamo un senso di rorazione
         digitalWrite(3,direzione);
       // azzera
          digitalWrite(2,0);
        
         for (i=1 ; i< (passi+1); i++){
        
         
          // step! la durata dipende dall hardware
          digitalWrite(2,1);
          delayMicroseconds(tempo_h);
          // quanto tempo voglio par passare prima del prossimo step?
          digitalWrite(2,0);
          delayMicroseconds(tempo_l);
      
          
          //Serial.println(i);
        }
      
        
        // clear the string:
        ricevuto = "";
        completo = false;
        Serial.println("ok");
      }
      
    }
  

void serialEvent() {
  while (Serial.available()) {
    // get the new byte:
    char inChar = (char)Serial.read(); 
    // add it to the inputString:
    ricevuto += inChar;
    // if the incoming character is a newline, set a flag
    // so the main loop can do something about it:
    if (inChar == '\n') {
      completo = true;
   
    } 
  }
}